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REM Sample Program (Sine Curve Plot) 
LPRINT "11506,1000" 

LET dr=ATN (1)74S: LET d=0 

FOR n=1 TO 2 STEP .S 

LET r=300 

FOR i=0 TO 360 STEP 2 

LET x=Ie3: LET y=INT (rSIN (Iunxdr)) 
LPRINT "D"sx-"."sy 

LET r=r-2: NEXT i: NEXT n 

LET d@="0": LET x=0 

LPRINT "MG0,-300" 

FOR i=1 TOS 

LPRINT "M";x;",-350" 

LPRINT "P";d$ 


LET d=d+90: LET d#=STR® d: LET x=im180-S0: NEXT | 


LPRINT "M-S0,-306": LPRINT "X0,150,4" 
FOR 1=300 TO -300 STEP -15S0 

READ d: LPRINT "M-200,";1 

LPRINT "P";d: NEXT | 

LPRINT "MQ,-300": LPRINT "X1,180,4" 
STOP Ss 

DATA 1,.5,0,-.5,-1 e 
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